perm filename TEST.FUN[PUR,LCS] blob sn#441512 filedate 1979-07-23 generic text, type T, neo UTF8
ARRAY A                                      
(512);
 PRINT "A  -";
SYNTH(A    );   99
   11.0000    0.0000    0.0000    0.0000
   22.0000    0.0000    0.0000    0.0000
   33.0000    0.0000    0.0000    0.0000
    1.0000    1.0000    0.0000    0.0000
    2.0000    1.0000    0.0000    0.0000
    3.0000    0.5000    0.0000    0.0000
    4.0000    0.1000    0.0000    0.0000
    2.0000    3.0000    0.0000    0.0000
  999.0000